home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbdrop / vbdrop.frm < prev    next >
Text File  |  1994-10-10  |  3KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form frmTrashCan 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Dust Bin"
  5.    ClientHeight    =   735
  6.    ClientLeft      =   2505
  7.    ClientTop       =   4755
  8.    ClientWidth     =   2025
  9.    Height          =   1140
  10.    Icon            =   VBDROP.FRX:0000
  11.    Left            =   2445
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   735
  16.    ScaleWidth      =   2025
  17.    Top             =   4410
  18.    Width           =   2145
  19.    WindowState     =   1  'Minimized
  20.    Begin MsgBlaster cbkDragDrop 
  21.       Prop8           =   "Click on ""..."" for the About Box ---->"
  22.       Prop9           =   "Click on ""..."" for the Message Center --->"
  23.       Left            =   1380
  24.       MsgList         =   VBDROP.FRX:0302
  25.       MsgPassage      =   VBDROP.FRX:0366
  26.       TargetName      =   "frmTrashCan"
  27.       Top             =   120
  28.       UserMsgs        =   VBDROP.FRX:0398
  29.       Version         =   "2.0"
  30.    End
  31.    Begin Image imgTrash 
  32.       Height          =   480
  33.       Index           =   1
  34.       Left            =   720
  35.       Picture         =   VBDROP.FRX:0735
  36.       Top             =   90
  37.       Visible         =   0   'False
  38.       Width           =   480
  39.    End
  40.    Begin Image imgTrash 
  41.       Height          =   480
  42.       Index           =   0
  43.       Left            =   150
  44.       Picture         =   VBDROP.FRX:0A37
  45.       Top             =   90
  46.       Visible         =   0   'False
  47.       Width           =   480
  48.    End
  49. End
  50. Option Explicit
  51.  
  52. ' Copyright ⌐ 1994 by Computer Technologies, Inc. All rights reserved.
  53.  
  54. Sub cbkDragDrop_Message (MsgVal As Integer, wParam As Integer, lParam As Long, ReturnVal As Long)
  55.  
  56. ' Copyright ⌐ 1994 by Computer Technologies, Inc. All rights reserved.
  57.  
  58.     Dim tFileNames          As String
  59.  
  60.     Select Case MsgVal
  61.         Case WM_SYSCOMMAND
  62.             If wParam = IDM_ABOUT Then Call APP_About
  63.  
  64.         Case WM_DROPFILES
  65.             Me.Icon = imgTrash(1).Picture
  66.             Me.Refresh
  67.             Screen.MousePointer = 11
  68.             tFileNames = UT_DropFileNames(MsgVal, wParam, lParam)
  69.             APP_DeleteFiles tFileNames
  70.             Screen.MousePointer = 0
  71.             Me.Icon = imgTrash(0).Picture
  72.             Me.Refresh
  73.  
  74.     End Select
  75.  
  76. End Sub
  77.  
  78. Sub Form_Load ()
  79.  
  80. ' Copyright ⌐ 1994 by Computer Technologies, Inc. All rights reserved.
  81.  
  82.     Dim nMsgCtr         As Integer
  83.     Dim hMenu           As Integer
  84.     Dim nResult         As Integer
  85.  
  86.     nMsgCtr = UT_DropEnable((Me.hWnd), Me.cbkDragDrop, 0, True)
  87.  
  88. ' Now we get a copy of the system menu and remove the seperator bars.
  89.     hMenu = APIGetSystemMenu((frmTrashCan.hWnd), False)
  90.     nResult = APIDeleteMenu(hMenu, 0, MF_BYCOMMAND)
  91.     nResult = APIDeleteMenu(hMenu, 0, MF_BYCOMMAND)
  92.  
  93. ' Add our own 'About...' item to the menu
  94.     nResult = APIAppendMenu(hMenu, MF_SEPARATOR, 0, "")
  95.     nResult = APIAppendMenu(hMenu, MF_ENABLED Or MF_STRING, IDM_ABOUT, "About ...")
  96.  
  97. ' Tell message blaster that we want to see menu commands
  98.     cbkDragDrop.MsgList(nMsgCtr + 1) = WM_SYSCOMMAND
  99.  
  100. ' Show the about box ...
  101.     Call APP_About
  102.  
  103. End Sub
  104.  
  105.